grant = read.csv('NDB_ResearchGrants_NIH.csv')
print(grant)
##    Year Female  Male Percentage.to.Female
## 1  1998   7362 24877                   23
## 2  1999   8040 26753                   23
## 3  2000   8713 28320                   24
## 4  2001   9386 29890                   24
## 5  2002  10199 31801                   24
## 6  2003  11080 33416                   25
## 7  2004  11693 34200                   25
## 8  2005  11998 33870                   26
## 9  2006  11929 33107                   26
## 10 2007  12266 33551                   27
## 11 2008  12575 32987                   28
## 12 2009  12546 31884                   28
## 13 2010  12635 31667                   29
## 14 2011  12838 31183                   29
## 15 2012  13025 30768                   30
## 16 2013  12522 29553                   30
## 17 2014  12516 28843                   30
## 18 2015  12755 28703                   31
## 19 2016  13355 29287                   31
## 20 2017  13842 29709                   32
## 21 2018  15207 30648                   33
## 22 2019  16343 31558                   34
## 23 2020  17161 31652                   35
## 24 2021  17681 31443                   36
## 25 2022  19028 31560                   38
## 26 2023  19841 31387                   39
## 27 2024  20201 30848                   40

Comparison of Research Grant in STEM field

line graph

bar graph